home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / prgmming / showiff / s32k.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-12-03  |  461 b   |  34 lines
  1. unit S32K;
  2.  
  3. interface
  4.  
  5. var Page: LongInt;
  6.  
  7. procedure Mode32K;
  8. procedure SetPalette(var P; Num: Word);
  9. procedure SetPage(P: LongInt);
  10.  
  11. implementation
  12.  
  13. procedure Mode32K; assembler;
  14. asm
  15.  MOV AX,$4f02
  16.  MOV BX,$110
  17.  INT $10
  18. end;
  19.  
  20. procedure SetPage(P: LongInt); { Set the memory page }
  21. begin
  22.  P := (P div 65536) and $ffff;
  23.  asm
  24.   MOV AX, $4F05
  25.   MOV BH, 0
  26.   MOV BL, 1
  27.   MOV DX, Word(P)
  28.   INT $10
  29.  end;
  30.  Page := P * 65536;
  31. end;
  32.  
  33. end.
  34.